home *** CD-ROM | disk | FTP | other *** search
/ Know Your Hockey - The Greatest Player Resource / Know Your Hockey: The Greatest Player Resource.iso / hockey / director / ktgcst.cst / 00042_Script_Rollovers < prev    next >
Text File  |  1998-09-28  |  4KB  |  142 lines
  1. --global gButtonState,gPrompts,gPop,gRoll,gLastRoll
  2. --
  3. -- RolloKitF
  4. --  if gPop =(window "PopMenu") then exit
  5. --  if gRoll>= 14 and gRoll <= 22 then
  6. --    
  7. --    
  8. --    turnon
  9. --    
  10. --    --    set a =getat(gPrompts,gRoll)
  11. --    --    put a into field "PromptWindow" 
  12. --  else
  13. --    --    set a =getat(gPrompts,1)
  14. --    --    put a into field "PromptWindow" 
  15. --  end if
  16. --  if voidp(glastRoll) or gLastRoll = 0 then exit  
  17. --  set test = getat(gButtonState,gLastRoll)
  18. --  if test < 1 and gLastRoll <> gRoll then 
  19. --    resetsprites2
  20. --  end if 
  21. --  
  22. --end
  23. --
  24. --on turnon
  25. --  case gRoll of
  26. --    21:
  27. --      set the blend of sprite gRoll-15 to 100 
  28. --       set the blend of sprite gRoll+5 to 100 
  29. --    22: 
  30. --      set the blend of sprite gRoll-14 to 100 
  31. --      set the blend of sprite gRoll+6 to 100 
  32. --    otherwise
  33. --      set the blend of sprite gRoll-10 to 100 
  34. --      set the blend of sprite gRoll+10 to 100 
  35. --  end case  
  36. --end
  37. --
  38. --
  39. --on resetsprites2
  40. --  if gLastRoll >=15 and gLastRoll <= 22 then
  41. --    turnoff
  42. --    
  43. --  end if 
  44. --end
  45. --
  46. --on turnoff
  47. --  case gLastRoll of
  48. --    21:
  49. --      set the blend of sprite glastRoll-15 to 0 
  50. --      set the blend of sprite gLastRoll+5 to 0 
  51. --    22: 
  52. --      set the blend of sprite glastRoll-14 to 0
  53. --      set the blend of sprite gLastRoll+6 to 0 
  54. --    otherwise
  55. --      set the blend of sprite glastRoll-10 to 0
  56. --      set the blend of sprite gLastRoll+10 to 0 
  57. --  end case 
  58. --end
  59. --
  60. --on  RolloKitA
  61. --  set x = the rollover
  62. --  set gLastRoll = gRoll
  63. --  set gRoll = x
  64. --  if gPop =(window "PopMenu") then exit
  65. --  if gRoll>= 22 and gRoll <= 31 then
  66. --    set the blend of sprite gRoll to 100
  67. --    set the blend of sprite gRoll-20 to 100
  68. --    --    set a =getat(gPrompts,gRoll)
  69. --    --    put a into field "PromptWindow" 
  70. --  else
  71. --    --    set a =getat(gPrompts,1)
  72. --    --    put a into field "PromptWindow" 
  73. --  end if
  74. --  if voidp(glastRoll) or gLastRoll = 0 then exit  
  75. --  set test = getat(gButtonState,gLastRoll)
  76. --  if test < 1 and gLastRoll <> gRoll then 
  77. --    resetsprites3
  78. --  end if 
  79. --  
  80. --end
  81. --
  82. --on resetsprites3
  83. --  if gLastRoll >=22 and gLastRoll <= 31 then
  84. --    set the blend of sprite glastRoll = 0
  85. --    set the blend of sprite glastRoll-20 = 0
  86. --  end if 
  87. --end
  88. --
  89. --on rollokit
  90. --  if gPop =(window "PopMenu") then exit
  91. --  set x = the rollover
  92. --  set gLastRoll = gRoll
  93. --  set gRoll = x
  94. --  if x> 15 and x < 46 then
  95. --    set the blend of sprite x to 100
  96. --    --    set a =getat(gPrompts,x)
  97. --    --    put a into field "PromptWindow" 
  98. --  else
  99. --    --    set a =getat(gPrompts,1)
  100. --    --    put a into field "PromptWindow" 
  101. --  end if
  102. --  resetsprites
  103. --end
  104. --
  105. --on resetsprites 
  106. --  if glastRoll < 14 or gLastRoll > 45 then exit  
  107. --  set test = getat(gButtonState,gLastRoll)
  108. --  if test < 1 and gLastRoll <> gRoll then 
  109. --    set the blend of sprite gLastRoll = 0 
  110. --  end if 
  111. --end
  112. --
  113. --
  114. --on  RolloKitC
  115. --  if gPop =(window "PopMenu") then exit
  116. --  if gRoll>= 32 and gRoll <= 44 then
  117. --    set the blend of sprite gRoll to 100
  118. --    --    set a =getat(gPrompts,gRoll)
  119. --    --    put a into field "PromptWindow" 
  120. --  else
  121. --    --    set a =getat(gPrompts,1)
  122. --    --    put a into field "PromptWindow" 
  123. --  end if
  124. --  if voidp(glastRoll) or gLastRoll = 0 then exit  
  125. --  set test = getat(gButtonState,gLastRoll)
  126. --  if test < 1 and gLastRoll <> gRoll then 
  127. --    resetsprites4
  128. --  end if 
  129. --  
  130. --end
  131. --
  132. --on resetsprites4
  133. --  if gLastRoll >=32 and gLastRoll <= 44 then
  134. --    set the blend of sprite glastRoll = 0
  135. --  end if 
  136. --end
  137. --
  138. --
  139. --
  140. --
  141. --
  142.